datos_oij <- read_excel("estadisticaspoliciales2021.xls",
col_types = c("text", "skip", "date",
"skip", "text", "skip", "text", "text",
"skip", "text", "text", "skip"))
datos_oij <- mutate(datos_oij, Caso = c(1:38349))
datos_oij <-
datos_oij %>%
select(Fecha, Delito, Victima, Edad, Genero, Provincia, Canton, Caso) %>%
mutate(Fecha = as.Date(Fecha, format = "%Y/%m/%d"))